home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 181 / 181.d81 / b.pi calc (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  777b  |  48 lines
  1. 10 :
  2. 20 :rem bill mcleod's pi calc
  3. 30 :
  4. 40 input"[147][154]iterations";i
  5. 50 print"[147][201]teration","   [208]i"
  6. 60 pi=4
  7. 70 k=1
  8. 80 ti$="000000"
  9. 90 b=4/(2*k+1)-4/(2*k+3):a=a+b
  10. 100 ifa>=1.0e-8thengosub200
  11. 110 ifa>0andk>1thenpi=pi-a
  12. 120 gosub210
  13. 130 ifk>=ithen150
  14. 140 k=k+2:goto90
  15. 150 t$=ti$
  16. 160 print"increment to pi="b
  17. 170 print"hours","minutes","seconds"
  18. 180 printleft$(t$,2),mid$(t$,3,2),right$(t$,2)
  19. 190 end
  20. 200 pi=pi-a
  21. 210 print" "k,pi
  22. 220 a=0
  23. 230 return
  24. 240 :
  25. 250 :rem fender's turbo
  26. 260 :
  27. 270 poke53371,0
  28. 272 input"[147][154]iterations";i
  29. 280 print"[147]"
  30. 290 p=4
  31. 300 k=3
  32. 310 c=0
  33. 320 ti$="000000"
  34. 322 poke53265,11
  35. 330 p=p-4/k
  36. 340 k=k+2:c=c+1
  37. 350 p=p+4/k
  38. 360 k=k+2:c=c+1
  39. 370 rem print""c,p
  40. 380 ifc<=ithen330
  41. 390 t$=ti$
  42. 392 poke53265,27
  43. 394 print"[154]"c,p
  44. 400 print"hours","minutes","seconds"
  45. 410 printleft$(t$,2),mid$(t$,3,2),right$(t$,2)
  46. 420 end
  47. 10000 d=peek(186):n$="0:b.pi calc":open15,d,15,"s"+n$:close15:saven$,d:end
  48.